home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / SaveBinaries.zprx < prev    next >
Text File  |  1995-03-09  |  1KB  |  48 lines
  1. /* SaveBinaries.zprexx */
  2. /* Speichert alle binären Messages und setzt sie auf löschen */
  3.  
  4. parse arg ZPPort
  5. address value ZPPort
  6. options results
  7.  
  8. whichlevel
  9. if result~='BOARD' then do
  10.    REQUESTNOTIFY 'Nur in einem Brett aufrufbar!'
  11.    exit
  12. end
  13.  
  14. count all
  15. nrofmails=result
  16. saved=0
  17.  
  18. do i=1 to nrofmails
  19.    jumptomessage i
  20.    messageinfo type
  21.    if result='BINARY' then do
  22.       messageinfo subject
  23.  
  24.       /* Aus dem Subject einen Filenamen basteln */
  25.       /* Länge auf 30 Zeichen begrenzen, Spaces durch "_" ersetzen */
  26.       filename=left(result,30)
  27.       filename=space(filename,1,'_')
  28.  
  29.       /* Hier das gewünschte Directory einsetzen */
  30.       filename='Work:Archives/'filename
  31.  
  32.       if exists(filename) then do
  33.          REQUESTRESPONSE 'File 'filename' existiert bereits. Überschreiben?'
  34.          if rc=0 then iterate
  35.       end
  36.  
  37.       savemessagebody filename
  38.       if rc=0 then do
  39.          REQUESTNOTIFY 'Fehler beim speichern!'
  40.          exit
  41.       end
  42.       delete one
  43.       saved=saved+1
  44.    end
  45. end
  46.  
  47. REQUESTNOTIFY saved' Nachrichten gespeichert.'
  48.